Introduction
Data
Patients
patients <- read_csv('Data/patients.csv')
patients %>%
kbl(booktabs = T) %>%
kable_material(c('hover', 'striped'), full_width = F) %>%
scroll_box(width = "100%", height = "250px")
|
NUMERO
|
ID
|
SEXO
|
EDAD
|
PRESION_ARTERIAL
|
PESO_kg
|
TALLA_cm
|
ROTA_CERV_MANUAL_DERECHA
|
ROTA_CERV_MANUAL_IZQUIERDA
|
ROTA_CERV_LAB_DERECHA
|
ROTA_CERV_LAB_IZQUIERDA
|
FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION
|
FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION
|
FLEX_FRONT_CERV_LAB_GRAD_FLEXION
|
FLEX_FRONT_CERV_LAB_GRAD_EXTESION
|
FLEX_LAT_CERV_MANUAL_GRAD_DERECHA
|
FLEX_LAT_CERV_MANUAL_GRAD_IZQUIERDA
|
FLEX_LAT_CERV_LAB_GRAD_DERECHA
|
FLEX_LAT_CERV_LAB_GRAD_IZQUIERDA
|
SHOBERT_MODIFICADO_CM_MANUAL
|
SHOBERT_MODIFICADO_CM_LABORATORIO
|
FLEX_LUMBAR_LAT_MANUAL_CM_DERECHA
|
FLEX_LUMBAR_LAT_MANUAL_CM_IZQUIERDA
|
FLEX_LUMBAR_LAT_LAB_CM_DERECHA
|
FLEX_LUMBAR_LAT_LAB_CM_IZQUIERDA
|
DISTANCIA_INTERMALEOLAR_MANUAL_CM
|
DISTANCIA_INTERMALEOLAR_LAB_CM
|
DISTANCIA_TRAGO_PARED_MANUAL
|
DISTANCIA_TRAGO_PARED_LABORATORIO
|
BIOLOGICO
|
TIPO
|
ASDAS
|
BASDAI
|
CONTROLADO
|
OBSERVACIONES
|
|
1
|
1045690975
|
M
|
29
|
135/87
|
78.5
|
174
|
50
|
50
|
49.8
|
70.60
|
35
|
30
|
40.0
|
29.50
|
50.0
|
48.0
|
38.0
|
37.00
|
19.5
|
16.0
|
10.0
|
8.0
|
16.5
|
16.6
|
35
|
28.3
|
10.0
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
2
|
7694437
|
M
|
47
|
119/90
|
98.4
|
164
|
35
|
35
|
39.6
|
37.60
|
20
|
30
|
13.7
|
19.60
|
46.5
|
20.0
|
25.3
|
14.60
|
21.0
|
13.0
|
7.0
|
9.0
|
8.0
|
8.5
|
28
|
21.0
|
21.0
|
N/A
|
SI
|
ADALIMUMAB
|
NA
|
NA
|
NO
|
(UVEITIS 3 EPISODIOS- CAMBIO DE BIOLOGICO)
|
|
3
|
17338396
|
M
|
51
|
133/93
|
116.0
|
183
|
55
|
60
|
46.4
|
49.80
|
45
|
75
|
37.0
|
20.90
|
63.0
|
57.0
|
30.6
|
30.40
|
22.0
|
20.0
|
15.0
|
16.0
|
20.0
|
19.0
|
31
|
33.0
|
14.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
SI
|
NA
|
|
4
|
79359992
|
M
|
53
|
134/100
|
87.5
|
165
|
45
|
50
|
44.3
|
58.30
|
35
|
50
|
26.7
|
18.40
|
55.0
|
60.0
|
22.0
|
19.60
|
21.0
|
18.0
|
9.0
|
6.0
|
8.3
|
9.3
|
22
|
20.0
|
16.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NO
|
(UVEITIS)
|
|
5
|
75083369
|
M
|
42
|
140/90
|
69.4
|
170
|
38
|
50
|
43.3
|
66.33
|
20
|
31
|
35.1
|
19.20
|
45.0
|
60.0
|
28.6
|
35.00
|
24.0
|
22.0
|
18.5
|
19.0
|
17.0
|
20.7
|
43
|
38.0
|
13.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NO
|
(UVEITIS 4 EPISODIOS- INICIO DE BIOLOGICO)
|
|
6
|
19208383
|
M
|
67
|
160/96
|
99.0
|
183
|
52
|
60
|
44.0
|
48.60
|
38
|
40
|
25.1
|
21.10
|
27.0
|
50.0
|
17.3
|
18.60
|
18.0
|
15.0
|
3.5
|
4.5
|
7.5
|
6.6
|
43
|
37.1
|
18.0
|
N/A
|
NO
|
NA
|
0.36
|
2.1
|
SI
|
NA
|
|
7
|
19279094
|
M
|
64
|
116/67
|
62.0
|
174
|
49
|
48
|
48.3
|
51.60
|
42
|
37
|
28.4
|
17.40
|
40.0
|
45.0
|
24.1
|
18.55
|
21.0
|
21.0
|
9.5
|
9.5
|
9.9
|
9.5
|
36
|
29.0
|
11.0
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
8
|
79455852
|
M
|
51
|
141/98
|
68.3
|
175
|
55
|
58
|
62.4
|
65.20
|
60
|
87
|
42.4
|
40.30
|
65.0
|
67.0
|
39.1
|
35.60
|
22.5
|
19.4
|
16.0
|
16.0
|
21.0
|
19.0
|
34
|
28.0
|
10.0
|
N/A
|
SI
|
ADALIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
9
|
79827683
|
M
|
45
|
126/88
|
64.8
|
171
|
40
|
45
|
47.0
|
53.80
|
37
|
35
|
22.9
|
17.90
|
40.0
|
50.0
|
16.9
|
20.70
|
19.5
|
19.0
|
10.0
|
11.0
|
13.9
|
9.5
|
26
|
23.0
|
13.0
|
N/A
|
SI
|
ADALIMUMAB
|
2.89
|
6.8
|
NO
|
NA
|
|
10
|
72283321
|
M
|
36
|
135/75
|
76.0
|
168
|
45
|
55
|
58.4
|
63.10
|
42
|
70
|
44.2
|
31.40
|
65.0
|
65.0
|
45.8
|
41.80
|
23.0
|
20.4
|
10.5
|
9.0
|
15.0
|
15.0
|
32
|
31.0
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
SI
|
NA
|
|
11
|
80441042
|
M
|
47
|
130/89
|
86.6
|
172
|
40
|
50
|
56.0
|
48.40
|
25
|
20
|
16.8
|
11.33
|
55.0
|
58.0
|
33.9
|
31.40
|
21.0
|
18.7
|
8.5
|
11.0
|
19.0
|
19.0
|
26
|
20.0
|
12.0
|
N/A
|
SI
|
ADALIMUMAB
|
NA
|
3.3
|
NO
|
(BAJA ACTIVIDAD DE LA ENFERMEDAD)
|
|
12
|
39796643
|
F
|
49
|
115/74
|
66.5
|
159
|
40
|
35
|
42.7
|
37.30
|
45
|
40
|
24.2
|
24.20
|
37.0
|
60.0
|
18.8
|
17.70
|
20.5
|
20.7
|
14.0
|
13.5
|
20.0
|
20.0
|
32
|
25.0
|
14.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NO
|
(DOLOR ARTICULAR )
|
|
13
|
39769521
|
F
|
49
|
116/88
|
83.5
|
168
|
53
|
52
|
51.2
|
48.20
|
30
|
48
|
26.6
|
24.40
|
30.0
|
34.0
|
31.6
|
31.30
|
19.0
|
18.0
|
10.0
|
10.0
|
11.2
|
12.4
|
41
|
40.7
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NO
|
(DOLOR ARTICULAR- ANTIBIOLOGICO CONTRAINDICADO POR CARDIOPATIA DILATADA
|
|
14
|
51669839
|
F
|
58
|
112/77
|
52.8
|
160
|
35
|
40
|
46.5
|
43.20
|
37
|
30
|
37.1
|
18.00
|
30.0
|
53.0
|
15.3
|
15.00
|
20.5
|
20.0
|
4.0
|
8.0
|
17.7
|
18.0
|
26
|
20.0
|
13.0
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
15
|
65777094
|
F
|
43
|
103/82
|
64.0
|
162
|
55
|
60
|
21.0
|
19.80
|
45
|
60
|
29.3
|
32.60
|
45.0
|
50.0
|
35.2
|
34.30
|
21.5
|
20.7
|
14.0
|
14.5
|
15.0
|
14.0
|
45
|
32.0
|
9.5
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
NO
|
(RECIENTE CAMBIO DE BIOLOGICO)
|
|
16
|
51697173
|
F
|
56
|
170/100
|
57.9
|
160
|
55
|
60
|
63.0
|
60.00
|
53
|
55
|
39.7
|
39.60
|
46.0
|
60.0
|
30.6
|
27.00
|
22.7
|
18.0
|
10.0
|
12.5
|
13.2
|
12.3
|
36
|
27.3
|
12.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NO
|
(DOLOR ARTICULAR)
|
|
17
|
39525467
|
F
|
58
|
127/89
|
70.0
|
156
|
60
|
64
|
51.0
|
45.40
|
39
|
50
|
33.7
|
30.60
|
40.0
|
47.5
|
21.6
|
21.40
|
21.0
|
22.8
|
4.0
|
4.0
|
6.4
|
6.4
|
32
|
33.0
|
14.0
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
18
|
51653334
|
F
|
57
|
122/90
|
59.7
|
148
|
32
|
30
|
31.5
|
24.10
|
33
|
30
|
19.2
|
16.20
|
25.0
|
30.0
|
13.8
|
17.80
|
20.5
|
15.7
|
10.5
|
9.0
|
7.9
|
8.9
|
34
|
22.0
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
8.2
|
NO
|
(SE SUSPENDIO BIOLOGICO POR REACCION ADVERSA)
|
|
19
|
39700172
|
F
|
56
|
113/81
|
67.0
|
155
|
37
|
40
|
49.7
|
49.90
|
30
|
33
|
12.7
|
12.30
|
40.0
|
47.0
|
30.7
|
27.10
|
19.0
|
15.8
|
10.0
|
9.5
|
9.2
|
8.8
|
49
|
36.0
|
10.0
|
N/A
|
SI
|
VEDOLIZUMAB?
|
NA
|
NA
|
NO
|
(DOLOR ARTICULAR)
|
|
20
|
35314726
|
F
|
62
|
147/92
|
86.5
|
165
|
55
|
57
|
45.2
|
49.30
|
50
|
65
|
33.4
|
26.70
|
45.0
|
53.0
|
20.7
|
19.50
|
19.0
|
15.7
|
8.5
|
9.0
|
9.4
|
9.7
|
48
|
32.0
|
11.5
|
N/A
|
SI
|
GOLIMUMAB
|
NA
|
NA
|
SI
|
NA
|
|
21
|
52272228
|
F
|
43
|
142/83
|
57.3
|
163
|
50
|
55
|
50.1
|
44.40
|
20
|
60
|
35.8
|
NA
|
37.0
|
55.0
|
37.3
|
34.20
|
23.0
|
21.7
|
17.0
|
18.0
|
19.8
|
19.2
|
42
|
32.0
|
11.0
|
N/A
|
SI
|
ADALIMUMAB
|
NA
|
4.8
|
NO
|
NA
|
Controls
controls <- read_csv('Data/controls.csv')
controls %>%
kbl(booktabs = T) %>%
kable_material(c('hover', 'striped'), full_width = F) %>%
scroll_box(width = "100%", height = "250px")
|
NUMERO
|
ID
|
SEXO
|
EDAD
|
PRESION_ARTERIAL
|
PESO_kg
|
TALLA_cm
|
ROTA_CERV_MANUAL_DERECHA
|
ROTA_CERV_MANUAL_IZQUIERDA
|
ROTA_CERV_LAB_DERECHA
|
ROTA_CERV_LAB_IZQUIERDA
|
FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION
|
FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION
|
FLEX_FRONT_CERV_LAB_GRAD_FLEXION
|
FLEX_FRONT_CERV_LAB_GRAD_EXTESION
|
FLEX_LAT_CERV_MANUAL_GRAD_DERECHA
|
FLEX_LAT_CERV_MANUAL_GRAD_IZQUIERDA
|
FLEX_LAT_CERV_LAB_GRAD_DERECHA
|
FLEX_LAT_CERV_LAB_GRAD_IZQUIERDA
|
SHOBERT_MODIFICADO_CM_MANUAL
|
SHOBERT_MODIFICADO_CM_LABORATORIO
|
FLEX_LUMBAR_LAT_MANUAL_CM_DERECHA
|
FLEX_LUMBAR_LAT_MANUAL_CM_IZQUIERDA
|
FLEX_LUMBAR_LAT_LAB_CM_DERECHA
|
FLEX_LUMBAR_LAT_LAB_CM_IZQUIERDA
|
DISTANCIA_INTERMALEOLAR_MANUAL_CM
|
DISTANCIA_INTERMALEOLAR_LAB_CM
|
DISTANCIA_TRAGO_PARED_MANUAL
|
DISTANCIA_TRAGO_PARED_LABORATORIO
|
BIOLOGICO
|
TIPO
|
ASDAS
|
BASDAI
|
CONTROLADO
|
OBSERVACIONES
|
|
1
|
795446676
|
M
|
49
|
135/86
|
85.9
|
167
|
35
|
37
|
41.3
|
51.6
|
32
|
52
|
35.4
|
24.2
|
43
|
45
|
25.3
|
26.6
|
22.0
|
15.7
|
12.0
|
11.5
|
11.40
|
12.20
|
36
|
44
|
9.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
2
|
79335107
|
M
|
54
|
145/84
|
78.8
|
170
|
52
|
55
|
57.0
|
52.2
|
43
|
40
|
37.9
|
25.2
|
50
|
60
|
38.2
|
40.7
|
21.5
|
17.0
|
13.5
|
12.0
|
15.50
|
15.30
|
39
|
34
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
3
|
79329652
|
M
|
55
|
136/81
|
75.0
|
160
|
75
|
80
|
59.8
|
51.5
|
40
|
55
|
37.0
|
38.7
|
65
|
68
|
38.6
|
29.4
|
23.0
|
23.8
|
16.0
|
20.0
|
15.10
|
17.00
|
31
|
30
|
10.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
4
|
1105679432
|
M
|
29
|
115/87
|
72.0
|
176
|
62
|
65
|
55.6
|
56.0
|
54
|
85
|
52.8
|
30.2
|
50
|
55
|
38.3
|
35.1
|
22.0
|
18.7
|
19.0
|
19.0
|
18.00
|
18.00
|
45
|
33
|
10.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
5
|
79702187
|
M
|
44
|
148/93
|
100.0
|
170
|
60
|
60
|
40.0
|
43.2
|
40
|
70
|
20.5
|
20.8
|
45
|
50
|
17.2
|
18.4
|
21.0
|
17.7
|
15.0
|
14.0
|
18.00
|
16.40
|
40
|
26
|
12.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
6
|
72276313
|
M
|
37
|
153/99
|
87.0
|
175
|
80
|
80
|
48.2
|
60.0
|
50
|
55
|
32.2
|
26.1
|
45
|
45
|
29.0
|
30.8
|
21.0
|
20.7
|
19.0
|
21.0
|
22.50
|
22.00
|
57
|
46
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
7
|
79692335
|
M
|
44
|
140/90
|
83.0
|
177
|
65
|
70
|
55.0
|
56.7
|
50
|
75
|
45.6
|
34.4
|
65
|
65
|
41.7
|
41.9
|
21.0
|
19.8
|
17.5
|
17.0
|
19.50
|
19.50
|
36
|
34
|
10.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
8
|
79518507
|
M
|
49
|
164/112
|
74.0
|
173
|
90
|
90
|
62.8
|
55.3
|
50
|
90
|
39.6
|
32.0
|
65
|
60
|
17.6
|
21.3
|
21.0
|
24.8
|
20.0
|
20.0
|
17.00
|
18.00
|
38
|
26
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
9
|
7335199
|
M
|
39
|
165/98
|
76.0
|
165
|
73
|
85
|
60.9
|
76.0
|
45
|
55
|
50.9
|
41.0
|
60
|
50
|
24.5
|
27.5
|
23.0
|
21.7
|
16.0
|
18.0
|
17.00
|
19.00
|
34
|
37
|
10.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
10
|
79799607
|
M
|
43
|
126/76
|
79.5
|
172
|
90
|
80
|
62.3
|
58.3
|
50
|
80
|
36.8
|
31.9
|
40
|
55
|
35.9
|
41.9
|
20.5
|
22.4
|
18.5
|
19.0
|
20.00
|
19.00
|
25
|
26
|
11.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
11
|
77158582
|
M
|
41
|
150/95
|
91.0
|
173
|
65
|
55
|
49.3
|
53.4
|
30
|
30
|
34.0
|
30.2
|
50
|
50
|
33.4
|
28.0
|
23.0
|
24.3
|
22.0
|
22.0
|
19.00
|
16.00
|
43
|
41
|
10.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
12
|
520849231
|
F
|
48
|
122/80
|
58.0
|
159
|
45
|
52
|
53.5
|
52.5
|
45
|
43
|
37.4
|
27.3
|
38
|
32
|
35.4
|
27.8
|
23.0
|
21.0
|
10.0
|
10.5
|
15.16
|
15.47
|
36
|
27
|
9.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
13
|
52107876
|
F
|
45
|
120/68
|
63.1
|
165
|
60
|
63
|
80.3
|
70.8
|
62
|
100
|
46.8
|
26.2
|
50
|
57
|
33.7
|
38.5
|
22.5
|
22.0
|
15.0
|
17.0
|
14.70
|
17.80
|
40
|
40
|
9.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
14
|
51774173
|
F
|
54
|
160/99
|
63.0
|
158
|
70
|
65
|
50.4
|
60.8
|
48
|
68
|
46.8
|
44.7
|
60
|
65
|
34.9
|
38.9
|
22.0
|
21.0
|
19.0
|
17.0
|
16.90
|
17.30
|
50
|
31
|
9.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
15
|
1127949714
|
F
|
40
|
110/80
|
93.0
|
165
|
60
|
65
|
55.5
|
60.3
|
55
|
95
|
36.8
|
46.0
|
55
|
60
|
41.2
|
34.0
|
24.0
|
26.0
|
12.5
|
12.0
|
15.70
|
16.30
|
42
|
36
|
10.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
16
|
52740708
|
F
|
38
|
98/74
|
74.0
|
156
|
68
|
65
|
60.3
|
61.4
|
60
|
88
|
35.0
|
26.3
|
65
|
68
|
42.0
|
36.6
|
23.0
|
25.0
|
22.0
|
24.0
|
18.70
|
21.60
|
36
|
42
|
9.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
17
|
52037731
|
F
|
48
|
120/86
|
82.6
|
152
|
65
|
70
|
46.4
|
43.1
|
45
|
75
|
26.6
|
31.8
|
45
|
60
|
26.2
|
27.4
|
21.5
|
23.0
|
13.0
|
15.0
|
15.80
|
18.00
|
31
|
29
|
9.5
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
18
|
1032434920
|
F
|
29
|
107/76
|
40.0
|
153
|
48
|
60
|
56.5
|
54.8
|
35
|
75
|
31.1
|
26.7
|
57
|
60
|
33.8
|
33.8
|
23.0
|
20.0
|
14.0
|
14.0
|
13.90
|
15.60
|
41
|
40
|
10.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
19
|
60379447
|
F
|
42
|
108/82
|
60.3
|
157
|
50
|
60
|
62.5
|
57.4
|
62
|
110
|
47.8
|
28.0
|
70
|
65
|
38.8
|
36.9
|
22.0
|
22.0
|
20.0
|
20.0
|
19.60
|
24.60
|
35
|
35
|
9.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
20
|
51958243
|
F
|
50
|
126/79
|
61.0
|
153
|
60
|
60
|
65.4
|
60.6
|
35
|
90
|
25.8
|
18.6
|
60
|
55
|
23.3
|
23.1
|
22.5
|
18.7
|
14.0
|
16.0
|
20.00
|
18.00
|
34
|
33
|
12.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
|
21
|
52957426
|
F
|
35
|
121/95
|
52.0
|
147
|
55
|
60
|
57.7
|
58.1
|
60
|
60
|
19.0
|
15.3
|
65
|
70
|
32.7
|
32.1
|
22.0
|
20.7
|
18.0
|
19.0
|
NA
|
NA
|
45
|
34
|
11.0
|
N/A
|
NO
|
NA
|
NA
|
NA
|
NA
|
NA
|
Differences
Rotacion Cervical (Grados)
patients %>%
ggplot(aes(x = ROTA_CERV_MANUAL_DERECHA)) +
geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
geom_density(aes(x = ROTA_CERV_LAB_DERECHA, colour = 'Laboratory',
fill = 'Laboratory'), alpha = 0.2) +
xlab('Rotacion Cervical Derecha (Grados)') +
theme(legend.position = 'bottom')

patients %>%
ggplot(aes(x = ROTA_CERV_MANUAL_IZQUIERDA)) +
geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
geom_density(aes(x = ROTA_CERV_LAB_IZQUIERDA, colour = 'Laboratory',
fill = 'Laboratory'), alpha = 0.2) +
xlab('Rotacion Cervical Derecha (Grados)') +
theme(legend.position = 'bottom')

Flexion Frontal Cervical (Grados)
fig3 <- patients %>%
ggplot(aes(x = FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION)) +
geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
geom_density(aes(x = FLEX_FRONT_CERV_LAB_GRAD_FLEXION, colour = 'Laboratory',
fill = 'Laboratory'), alpha = 0.2) +
xlab('Flexion Frontal Cervical (Grados)') +
theme(legend.position = 'bottom')
ggplotly(fig3, tooltip = "all")
fig4 <- patients %>%
ggplot(aes(x = FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION)) +
geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
geom_density(aes(x = FLEX_FRONT_CERV_LAB_GRAD_EXTESION, colour = 'Laboratory',
fill = 'Laboratory'), alpha = 0.2) +
xlab('Flexion Frontal Cervical (Grados)') +
theme(legend.position = 'bottom')
ggplotly(fig4, tooltip = "all")
Conclusions
Preciosa, la idea es hacer todos los analisis aqui. Que te parece? Sabes que cuentas con todo mi apoyo. Te amo!